//-------------Sonic CD R2 1 A CycPal Setup Script---------------//
//---------------------Scripted By Twanvanb1---------------------//

// Aliases
#alias Object.Value0	:	Object.Timer
#alias Object.Value1	:	Object.CurrentPalette

// Priority
#alias 1	:	PRIORITY_ACTIVE


sub ObjectMain
	Object.Timer++
	if Object.Timer > 5
		Object.Timer = 0
#platform: SW_Rendering
		RotatePalette(181, 183, 0)
		RotatePalette(184, 186, 0)
		RotatePalette(192, 194, 0)
		RotatePalette(195, 197, 0)
		RotatePalette(198, 200, 0)
		RotatePalette(201, 203, 0)
		RotatePalette(204, 206, 0)
		RotatePalette(208, 210, 0)
		RotatePalette(211, 213, 0)
		RotatePalette(214, 216, 0)
		RotatePalette(217, 219, 0)
		RotatePalette(220, 222, 0)
		RotatePalette(224, 226, 0)
		RotatePalette(227, 229, 0)
		RotatePalette(230, 232, 0)
		RotatePalette(233, 235, 0)
		RotatePalette(236, 238, 0)
		RotatePalette(240, 242, 0)
		RotatePalette(243, 245, 0)
		RotatePalette(246, 248, 0)
		RotatePalette(249, 251, 0)
		RotatePalette(252, 254, 0)
		RotatePalette(112, 114, 0)
		RotatePalette(115, 117, 0)
		RotatePalette(118, 120, 0)
		RotatePalette(121, 123, 0)
#endplatform

#platform: HW_Rendering
		Object.CurrentPalette++
		Object.CurrentPalette %= 3
		SetActivePalette(Object.CurrentPalette, 0, 240)
#endplatform
	end if
end sub

sub ObjectStartup
	Object[19].Type = TypeName[PaletteAnimation]
	Object[19].Priority = PRIORITY_ACTIVE

#platform: HW_Rendering
	TempValue0 = 1
	while TempValue0 < 3
		RotatePalette(181, 183, 0)
		RotatePalette(184, 186, 0)
		RotatePalette(192, 194, 0)
		RotatePalette(195, 197, 0)
		RotatePalette(198, 200, 0)
		RotatePalette(201, 203, 0)
		RotatePalette(204, 206, 0)
		RotatePalette(208, 210, 0)
		RotatePalette(211, 213, 0)
		RotatePalette(214, 216, 0)
		RotatePalette(217, 219, 0)
		RotatePalette(220, 222, 0)
		RotatePalette(224, 226, 0)
		RotatePalette(227, 229, 0)
		RotatePalette(230, 232, 0)
		RotatePalette(233, 235, 0)
		RotatePalette(236, 238, 0)
		RotatePalette(240, 242, 0)
		RotatePalette(243, 245, 0)
		RotatePalette(246, 248, 0)
		RotatePalette(249, 251, 0)
		RotatePalette(252, 254, 0)
		RotatePalette(112, 114, 0)
		RotatePalette(115, 117, 0)
		RotatePalette(118, 120, 0)
		RotatePalette(121, 123, 0)
		CopyPalette(0, TempValue0)
		TempValue0++
	loop
	RotatePalette(181, 183, 0)
		RotatePalette(184, 186, 0)
		RotatePalette(192, 194, 0)
		RotatePalette(195, 197, 0)
		RotatePalette(198, 200, 0)
		RotatePalette(201, 203, 0)
		RotatePalette(204, 206, 0)
		RotatePalette(208, 210, 0)
		RotatePalette(211, 213, 0)
		RotatePalette(214, 216, 0)
		RotatePalette(217, 219, 0)
		RotatePalette(220, 222, 0)
		RotatePalette(224, 226, 0)
		RotatePalette(227, 229, 0)
		RotatePalette(230, 232, 0)
		RotatePalette(233, 235, 0)
		RotatePalette(236, 238, 0)
		RotatePalette(240, 242, 0)
		RotatePalette(243, 245, 0)
		RotatePalette(246, 248, 0)
		RotatePalette(249, 251, 0)
		RotatePalette(252, 254, 0)
		RotatePalette(112, 114, 0)
		RotatePalette(115, 117, 0)
		RotatePalette(118, 120, 0)
		RotatePalette(121, 123, 0)
#endplatform

end sub
